SetCode {Concrete Shell}

SetCode (for Concrete Shell Design)

Syntax

SapObject.SapModel.DesignConcreteShell.SetCode

VB6 Procedure

Function SetCode(ByVal CodeName As String) As Long

Parameters

CodeName

This is one of the following concrete shell design code names.

ACI 350-20

Eurocode 2-2004

Remarks

This function sets the concrete shell design code.

The function returns zero if the code is successfully set; otherwise it returns a nonzero value.

VBA Example

Sub SetConcreteShellDesignCode()

 'dimension variables

 Dim SapObject as cOAPI

 Dim SapModel As cSapModel

 Dim ret As Long

 'create Sap2000 object

 Set SapObject = CreateObject("CSI.SAP2000.API.SapObject")

 'start Sap2000 application

 SapObject.ApplicationStart

 'create SapModel object

 Set SapModel = SapObject.SapModel

 'initialize model

 ret = SapModel.InitializeNewModel

 'create blank model

ret = SapModel.File.NewBlank()

 'set concrete design code

 ret = SapModel.DesignConcreteShell.SetCode("Eurocode 2-2004")

 'close Sap2000

 SapObject.ApplicationExit False

 Set SapModel = Nothing

 Set SapObject = Nothing

 End Sub

Release Notes

Initial release in version 24.0.0

Updated to include ACI 350-20 in list of code names in version 26.0.0

See Also

GetCode {Concrete Shell}